Option Explicit
Sub C_Sample042()
    Dim myWd     As Window
    Dim myWState As Long
    Dim myWidth  As Double
    Dim myHeight As Double
    Set myWd = ActiveWindow
    With myWd
        myWState = .WindowState
        .WindowState = xlNormal
        myWidth = .Width
        myHeight = .Height
        .Width = 600					']wjp
        .Height = 400
        If MsgBox("jpwgQܧFC" _
        & vbCrLf & "zn٭즨쥻AܡH" _
        , vbInformation + vbYesNo) = vbNo Then Exit Sub
        .Width = myWidth
        .Height = myHeight
        .WindowState = myWState
    End With
    Set myWd = Nothing					'
End Sub
